home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
aed243a.zip
/
UPGRADE4.BAT
< prev
Wrap
DOS Batch File
|
1990-06-10
|
6KB
|
263 lines
echo off
echo RBBS batch file to upgrade RBBS v17.3x with .MRGs using QB4.5
if %1?==? goto Usage
if %2?==? goto Usage
goto Start
:Usage
echo Usage: UPGRADE xxxx [Y][N] [/R]
echo .
echo where xxxx is the upgrade thingie to add to the end of the
echo MRG filenames. Add the Y switch if you want to compile
echo the upgraded files, or N to skip the compile. Add the
echo /R if you only want to do RBBS (not config).
echo .
echo Ex: UPGRADE 173B Y to upgrade v17.3A to v17.3B & compile
goto End
:Start
if not exist C:\QB45\BC.EXE goto NoQB
REM if not exist C:\QB45\LINK.EXE goto NoLINK
if not exist C:\QB45\BLED.EXE goto NoBLED
if not exist C:\QB45\LIB\BCOM45.LIB goto NoBCOM
if not exist RBBS-PC.BAS goto NoPC
if not exist RBBSSUB1.BAS goto NoSUB1
if not exist RBBSSUB2.BAS goto NoSUB2
if not exist RBBSSUB3.BAS goto NoSUB3
if not exist RBBSSUB4.BAS goto NoSUB4
if not exist RBBSSUB5.BAS goto NoSUB5
if not exist RBBS-VAR.BAS goto NoRVAR
if %3?==/R? goto ChkOBJ
if %3?==/r? goto ChkOBJ
if not exist CONFIG.BAS goto NoCNFG
if not exist CNFG-SUB.BAS goto NoCSUB
if not exist CNFG-VAR.BAS goto NoCVAR
:ChkOBJ
if %2?==N? goto DoneOBJ
if %2?==n? goto DoneOBJ
if not exist LINK4.DAT goto NoDAT
if not exist 10-NET.OBJ goto No10
if not exist ANSI17.OBJ goto NoANSI
if not exist BDRIVEC2.OBJ goto NoBD
if not exist FOSSCOMM.OBJ goto NoFOSS
if not exist GIVEBK31.OBJ goto NoGIVE
if not exist PC-NET.OBJ goto NoPCNET
if not exist QBARCV6.OBJ goto NoQBARCV
if not exist RBBSDV.OBJ goto NoDV
if not exist RBBSML.OBJ goto NoML
if not exist RBBSUTIL.OBJ goto NoUTIL
if not exist XMODEM.OBJ goto NoXMOD
if not exist RBBSHS.OBJ goto NoHS
if not exist BASNOV.OBJ goto NoNOV
:DoneOBJ
if not exist ANSIED.BAS goto A0
if not exist RBBS-VAR.MOD goto NoMOD
:A0
if exist CVAR%1.BAS del CNFG-VAR.BAS
if exist CVAR%1.BAS ren CVAR%1.BAS CNFG-VAR.BAS
if exist RVAR%1.BAS del RBBS-VAR.BAS
if exist RVAR%1.BAS ren RVAR%1.BAS RBBS-VAR.BAS
if %3?==/R? goto A2
if %3?==/r? goto A2
if not exist CNFG%1.MRG goto A1
C:\QB45\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
del CONFIG.BAS
del CNFG%1.MRG
ren CNFG%1.BAS CONFIG.BAS
:A1
if not exist CSUB%1.MRG goto A2
C:\QB45\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
del CNFG-SUB.BAS
del CSUB%1.MRG
ren CSUB%1.BAS CNFG-SUB.BAS
:A2
if not exist R-PC%1.MRG goto A3
C:\QB45\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
del RBBS-PC.BAS
del R-PC%1.MRG
ren R-PC%1.BAS RBBS-PC.BAS
:A3
if not exist RSB1%1.MRG goto A4
C:\QB45\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
del RBBSSUB1.BAS
del RSB1%1.MRG
ren RSB1%1.BAS RBBSSUB1.BAS
:A4
if not exist RSB2%1.MRG goto A5
C:\QB45\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
del RBBSSUB2.BAS
del RSB2%1.MRG
ren RSB2%1.BAS RBBSSUB2.BAS
:A5
if not exist RSB3%1.MRG goto A6
C:\QB45\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
del RBBSSUB3.BAS
del RSB3%1.MRG
ren RSB3%1.BAS RBBSSUB3.BAS
:A6
if not exist RSB4%1.MRG goto A7
C:\QB45\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
del RBBSSUB4.BAS
del RSB4%1.MRG
ren RSB4%1.BAS RBBSSUB4.BAS
:A7
if not exist RSB5%1.MRG goto A8
C:\QB45\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
del RBBSSUB5.BAS
del RSB5%1.MRG
ren RSB5%1.BAS RBBSSUB5.BAS
:A8
if not exist AEDFIX.MRG goto A9
C:\QB45\BLED /B/L ANSIED.BAS AEDFIX.MRG AEDFIX.BAS
del ANSIED.BAS
del AEDFIX.MRG
ren AEDFIX.BAS ANSIED.BAS
:A9
if %2?==N? goto End
if %2?==n? goto End
:A10
echo Compiling RBBS-PC.BAS...
C:\QB45\BC RBBS-PC.BAS,,NUL,/O/C:4096/S/E/MBF;
echo Compiling RBBSSUB1.BAS...
C:\QB45\BC RBBSSUB1.BAS,,NUL,/X/O/MBF;
echo Compiling RBBSSUB2.BAS...
C:\QB45\BC RBBSSUB2.BAS,,NUL,/O/E/MBF;
echo Compiling RBBSSUB3.BAS...
C:\QB45\BC RBBSSUB3.BAS,,NUL,/O/E/MBF;
echo Compiling RBBSSUB4.BAS...
C:\QB45\BC RBBSSUB4.BAS,,NUL,/O/E/MBF;
echo Compiling RBBSSUB5.BAS...
C:\QB45\BC RBBSSUB5.BAS,,NUL,/O/E/MBF;
if exist ANSIED.BAS echo Compiling ANSIED.BAS...
if exist ANSIED.BAS C:\QB45\BC ANSIED.BAS,,NUL,/X/O/C:4096/E/MBF;
if not exist ANSIED.OBJ LINK @LINK4.DAT
if exist ANSIED.OBJ LINK @LINK4A.DAT
if %3?==/R? goto End
if %3?==/r? goto End
echo Compiling CONFIG.BAS...
C:\QB45\BC CONFIG.BAS,,NUL,/O/E/C:4096/S/MBF;
echo Compiling CNFG-SUB.BAS...
C:\QB45\BC CNFG-SUB.BAS,,NUL,/O/E/C:4096/S/MBF;
LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,,,C:\QB45\LIB\BCOM45.LIB/EXEPACK;
goto End
:NoQB
echo Missing C:\QB45\BC.EXE... aborted
goto End
REM :NoLINK
REM echo Missing C:\QB45\LINK.EXE... aborted
REM goto End
:NoBLED
echo Missing C:\QB45\BLED.EXE... aborted
goto End
:No10
echo Missing 10-NET.OBJ... aborted
goto End
:NoANSI
echo Missing ANSI17.OBJ... aborted
goto End
:NoBD
echo Missing BDRIVEC2.OBJ... aborted
goto End
:NoFOSS
echo Missing FOSSCOMM.OBJ... aborted
goto End
:NoGIVE
echo Missing GIVEBK31.OBJ... aborted
goto End
:NoPCNET
echo Missing PC-NET.OBJ... aborted
goto End
:NoQBARCV
echo Missing QBARCV6.OBJ... aborted
goto End
:NoDV
echo Missing RBBSDV.OBJ... aborted
goto End
:NoML
echo Missing RBBSML.OBJ... aborted
goto End
:NoUTIL
echo Missing RBBSUTIL.OBJ... aborted
goto End
:NoXMOD
echo Missing XMODEM.OBJ... aborted
goto End
:NoHS
echo Missing RBBSHS.OBJ... aborted
goto End
:NoNOV
echo Missing BASNOV.OBJ... aborted
goto End
:NoPC
echo Missing original RBBS-PC.BAS... aborted
goto End
:NoSUB1
echo Missing original RBBSSUB1.BAS... aborted
goto End
:NoSUB2
echo Missing original RBBSSUB2.BAS... aborted
goto End
:NoSUB3
echo Missing original RBBSSUB3.BAS... aborted
goto End
:NoSUB4
echo Missing original RBBSSUB4.BAS... aborted
goto End
:NoSUB5
echo Missing original RBBSSUB5.BAS... aborted
goto End
:NoRVAR
echo Missing original RBBS-VAR.BAS... aborted
goto End
:NoCNFG
echo Missing original CONFIG.BAS... aborted
goto End
:NoCSUB
echo Missing original CNFG-SUB.BAS... aborted
goto End
:NoCVAR
echo Missing original CNFG-VAR.BAS... aborted
goto End
:NoDAT
echo Missing LINK4.DAT... aborted
goto End
:NoBCOM
echo Missing C:\QB45\LIB\BCOM45.LIB... aborted
goto End
:NoMOD
echo Missing RBBS-VAR.MOD (for ANSIED.BAS)... aborted
goto End
:End